100 CALL CLEAR :: CALL SCREEN(16) :: CALL COLOR(9,2,1,10,9,1,11,11,1)
110 CALL CHAR(96,"FFFFFFFFFFFFFFFF",104,"FFFFFFFFFFFFFFFF",112,"FFFFFFFFFFFFFFFF")
120 FOR I=1 TO 8 :: CALL HCHAR(I,3,96,29) :: NEXT I
130 FOR I=9 TO 16 :: CALL HCHAR(I,3,104,29) :: NEXT I
140 FOR I=17 TO 24 :: CALL HCHAR(I,3,112,29) :: NEXT I
150 FOR T=1 TO 1500 :: NEXT T
160 CALL HCHAR(4,8,32,20) :: CALL HCHAR(5,8,32,20) :: CALL HCHAR(6,8,32,20)
170 CALL HCHAR(11,8,32,20) :: CALL HCHAR(12,8,32,20) :: CALL HCHAR(13,8,32,20)
180 CALL HCHAR(19,8,32,20) :: CALL HCHAR(20,8,32,20) :: CALL HCHAR(21,8,32,20)
190 FOR T=1 TO 1000 :: NEXT T
200 DISPLAY AT(5,10)SIZE(12):"KLAUS VIDONI"
210 FOR X=1 TO 500 :: NEXT X
220 DISPLAY AT(12,8)SIZE(17):"TEXAS INSTRUMENTS"
230 FOR X=1 TO 500 :: NEXT X
240 DISPLAY AT(20,12)SIZE(8):"COMPUTER"
250 FOR Y=1 TO 2000 :: NEXT Y
260 CALL VCHAR(1,1,32,768)
270 CALL KEY(0,K,S) :: IF S=0 THEN 270
